CDUTIL 13/CDUTIL #13 Julio 1995.iso/windows/amipro3/macros.cmz/FREPLACE.SMM

INI File | 1992-11-18 | 7.2 KB | 497 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Realiza b<\z>squedas y sustituciones en varios archivos a la vez.
    Lotus WPD Marketing
    Intermediate
    Replace, FileOpen, Local Arrays
    noautorun
    714788355
    31
    676699899
    103
    2
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Est<\a>ndar
    5
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        17
        0
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        24
        1
        2
        ,
        .
        Pts
    Est<\a>ndar
    0
    0
[l1]
    0
[pg]
    2
    49 0 67 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    86 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#293,9025>Macro by <+!>Charlie Pappas<-!>

<:#279,9025>

<:#279,9025>function freplace()

<:#279,9025>IF IsNewWave()

<:#279,9025>    Message("Macro no disponible si se ejecuta en HP New Wave.")

<:#279,9025>    Exit Function

<:#279,9025>ENDIF

<:#279,9025>'ignorekeyboard(2)

<:#279,9025>again:

<:#279,9025>filledit(9001, strcat$(GetDocPath$(), "*.sam"))

<:#279,9025>box = dialogbox(".", "files")

<:#279,9025>if box <<<;> 1

<:#279,9025>    return 0

<:#279,9025>endif

<:#279,9025>findit = getdialogfield$(8007)

<:#279,9025>replaceit = getdialogfield$(8008)

<:#279,9025>if getdialogfield$(8001) = ""

<:#279,9025>    message("Seleccione archivos de la lista")

<:#279,9025>    goto again

<:#279,9025>endif

<:#279,9025>cdir = getcurrentdir$()

<:#279,9025>dim files(100)

<:#279,9025>for i = 1 to 100

<:#279,9025>    file = Ucase$(strfield$(getdialogfield$(8001), i, " "))

<:#279,9025>    if file = "" or file = -1

<:#279,9025>        break

<:#279,9025>    endif

<:#279,9025>    files(i) = file

<:#279,9025>next

<:#279,9025>Count = GetOpenFileCount()

<:#279,9025>If Count <<1

<:#279,9025>    Count = 1

<:#279,9025>Endif

<:#279,9025>Dim OpenFiles(Count)

<:#279,9025>GetOpenFileNames(&OpenFiles)

<:#279,9025>

<:#279,9025>for j = 1 to i - 1

<:#279,9025>    file = files(j)

<:#284,9025><:f240,2Times New Roman,255,0,0>    ifopen = 0

<:#284,9025><:f240,2Times New Roman,255,0,0>    Count = GetOpenFileCount()

<:#284,9025><:f240,2Times New Roman,255,0,0>    IF Count <;> 0

<:#284,9025><:f240,2Times New Roman,255,0,0>    DIM Filess(Count)

<:#284,9025><:f240,2Times New Roman,255,0,0>    GetOpenFileNames(&Filess)

<:#284,9025><:f240,2Times New Roman,255,0,0>    FOR II = 1 to Count

<:#284,9025><:f240,2Times New Roman,255,0,0>    f = filess(II)

<:#284,9025>    <:f240,2Times New Roman,255,0,0>pathplace = instr(0, f, "\")

<:#284,9025><:f240,2Times New Roman,255,0,0>    while pathplace <<<;> 0

<:#284,9025><:f240,2Times New Roman,255,0,0>        pathtemp = pathplace + 1

<:#284,9025><:f240,2Times New Roman,255,0,0>        pathplace = instr(pathtemp, f,"\")

<:#284,9025><:f240,2Times New Roman,255,0,0>    wend

<:#284,9025><:f240,2Times New Roman,255,0,0>    length = len(f)

<:#284,9025><:f240,2Times New Roman,255,0,0>    pathplace = right$(f, length  - pathtemp + 1)

<:#284,9025><:f240,2Times New Roman,255,0,0>    if  pathplace =  ucase$(file) and ifopen = 0 then

<:#284,9025><:f240,2Times New Roman,255,0,0>        ifopen = 1<:f>

<:#284,9025><:f240,2Times New Roman,255,0,0>    <:f><:f240,2Times New Roman,255,0,0>endif

<:#284,9025><:f240,2Times New Roman,255,0,0>    NEXT    <:f>

<:#284,9025>    <:f240,2Times New Roman,255,0,0>endif

<:#284,9025><:f240,2Times New Roman,255,0,0>    if ifopen = 0 then<:f>

<:#279,9025>        FileOpen(strcat$(cdir, file),  1, "")

<:#279,9025>        replace(0, 0, 1024, findit, replaceit)

<:#279,9025>        save()

<:#279,9025>        fileclose()

<:#284,9025>    <:f240,2Times New Roman,255,0,0>else<:f>

<:#284,9025>        <:f240,2Times New Roman,255,0,0>selectwindow({file})

<:#284,9025><:f240,2Times New Roman,255,0,0>        type("<[>CtrlHome]")

<:#284,9025><:f240,2Times New Roman,255,0,0>        replace(0,0, 1024, findit, replaceit)

<:#284,9025><:f240,2Times New Roman,255,0,0>        save()

<:#284,9025><:f240,2Times New Roman,255,0,0>    endif        <:f>

<:#279,9025>next

<:#279,9025>end function

<:#279,9025>

<:#279,9025>DIALOG files

-2134376448 10 88 20 184 136 "" "" "B<\z>squeda y sustituci<\s>n en varios archivos"

<:#279,9025>FONT 8 "Helv"

6 58 76 8 1000 1342177280 "static" "&Archivos:" 0

6 6 60 8 1003 1342308352 "static" "&Buscar:" 0

<:#279,9025>6 16 120 12 8007 1350631552 "edit" "" 0

6 30 60 8 1004 1342308352 "static" "&Sustituir por:" 0

<:#279,9025>6 40 120 12 8008 1350631552 "edit" "" 0

<:#279,9025>6 68 66 64 9001 1352728587 "listbox" "" 0

138 7 40 14 1 1342373889 "button" "Aceptar" 0

138 23 40 14 2 1342373888 "button" "Cancelar" 0

<:#279,9025>92 100 48 1 8001 1342177280 "static" "" 0

<:#279,9025>80 68 96 8 7999 1342177280 "static" "" 0

<:#279,9025>END DIALOG

<:#279,9025>

>

[Embedded]
00005157
>
[macsum] 2
freplace 0 0 18 2
files 1536 0 -1 71
[macse]
14 freplace
0 1317
13
11 00000107
0 3 "Macro no disponible si se ejecuta en HP New Wave."
6 0
15
9
0 268
13
0 16 [X] "*.sam"
13
0 31 9001 [X]
0 26 "." "files"
13
8 1
6 1
5 1
18 1
11 00000223
5 0
15
9
0 27 8007
13
8 2
0 27 8008
13
8 3
0 27 8001
13
7 ""
18 0
11 00000355
0 3 "Seleccione archivos de la lista"
10 00000107
0 290
13
8 4
5 100
21 5 [X]
5 1
8 6
5 100
6 6
18 2
12 00000475
10 00000627
5 1
6 6
3 0
8 6
10 00000398
0 27 8001
13
0 20 [X] "{6}" " "
13
0 18 [X]
13
8 7
6 7
7 ""
18 0
6 7
5 -1
18 0
1 2
11 00000598
10 00000627
6 6
6 7
23 5
10 00000442
0 1050
13
8 8
6 8
5 1
18 5
11 00000683
5 1
8 8
6 8
21 9 [X]
0 1051 &9
5 1
8 10
6 6
5 1
3 1
6 10
18 2
12 00000808
10 00001524
5 1
6 10
3 0
8 10
10 00000720
6 10
22 5
8 7
5 0
8 11
0 1050
13
8 8
6 8
5 0
18 3
11 00001313
6 8
21 12 [X]
0 1051 &12
5 1
8 13
6 8
6 13
18 2
12 00000999
10 00001313
5 1
6 13
3 0
8 13
10 00000921
6 13
22 12
8 14
0 808 0 "{14}" "\"
13
8 15
6 15
5 0
18 1
11 00001148
6 15
5 1
3 0
8 16
0 808 "{16}" "{14}" "\"
13
8 15
10 00001048
0 14 "{14}"
13
8 17
6 17
6 16
3 1
5 1
3 0
0 807 "{14}" [X]
13
8 15
6 15
0 18 "{7}"
13
18 0
6 11
5 0
18 0
1 1
11 00001300
5 1
8 11
10 00000964
6 11
5 0
18 0
11 00001444
0 16 "{4}" "{7}"
13
2 102 1 [X] 1 ""
2 488 1 0 0 1024 "{2}" "{3}"
2 103 1
2 147 1
10 00001511
0 796 "{7}"
0 6 "[16420]"
2 488 1 0 0 1024 "{2}" "{3}"
2 103 1
10 00000773
6 0
15
9
DIALOG files
-2134376448 10 88 20 184 136 "" "" "B·squeda y sustituci≤n en varios archivos"
FONT 8 "Helv"
6 58 76 8 1000 1342177280 "static" "&Archivos:" 0
6 6 60 8 1003 1342308352 "static" "&Buscar:" 0
6 16 120 12 8007 1350631552 "edit" "" 0
6 30 60 8 1004 1342308352 "static" "&Sustituir por:" 0
6 40 120 12 8008 1350631552 "edit" "" 0
6 68 66 64 9001 1352728587 "listbox" "" 0
138 7 40 14 1 1342373889 "button" "Aceptar" 0
138 23 40 14 2 1342373888 "button" "Cancelar" 0
92 100 48 1 8001 1342177280 "static" "" 0
80 68 96 8 7999 1342177280 "static" "" 0
00005182